home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_24_1988_Transactor_Publishing.d64 / error check (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  376b  |  13 lines
  1. 10 forx=679to747:reada:pokex,a:d=d+a:next
  2. 20 ifd<>6577thenprint"data error":end
  3. 30 print"error check activated":sys679
  4. 50 data 173,0,3,141,200,2,173,1
  5. 60 data 3,141,201,2,169,195,141,0
  6. 70 data 3,169,2,141,1,3,169,96
  7. 80 data 141,167,2,96,224,16,240,3
  8. 90 data 76,0,0,138,186,228,34,144
  9. 100 data 3,170,176,244,169,221,160,2
  10. 110 data 32,30,171,76,101,164,83,84
  11. 120 data 65,67,75,32,79,86,69,82
  12. 130 data 70,76,79,87,0,0,0,0
  13.